﻿Class CBitacoraDecFolio


 Private Sub CargarBitacora()
        
        
        Dim negocioLiq As New CLiquidezServicio()
        Dim sFechaIni As String 
        Dim sFechaFin As String 

        Try        


          sFechaIni =   String.Format(Me.fechaInicio.Text,"yyyy-MM-dd") & " " & String.Format ( Me.tiempoInicio.HoraCompleta ,"HH:mm:ss")
          sFechaFin  =  String.Format(Me.fechaFin.Text,"yyyy-MM-dd") & " " & String.Format ( Me.tiempoFin.HoraCompleta ,"HH:mm:ss")

            
          Me.grdDatosBit.ItemsSource = negocioLiq.ObtenerRegistrosBitFoliosDec(Convert.ToDateTime(sFechaIni), Convert.ToDateTime ( sFechaFin),true)
                                
           If Me.grdDatosBit.Items.Count <= 0 THEN 
                MessageBox.Show("No existen registros.", "Consulta de folios Decalog", MessageBoxButton.OK, MessageBoxImage.Information )
            End If
                                             
          Me.grdDatosBit.UpdateLayout ()
            
        Catch ex As Exception
            MessageBox.Show("Error TI500. No existe información para los criterios introducidos:" & ex.Message, "Carga de bitácora", MessageBoxButton.OK, MessageBoxImage.Exclamation)
        End Try
        
    

    End Sub

    Public Sub New()

        InitializeComponent() 
        InicializarFechaHora () 
        Mouse.OverrideCursor = Nothing         

    End Sub



Private Sub btnConsultar_Clici(ByVal sender As System.Object , ByVal e As System.Windows.RoutedEventArgs ) Handles btnConsultar.Click  
         CargarBitacora()
End Sub

Private Sub btnLimpiar_Click(ByVal sender As System.Object , ByVal e As System.Windows.RoutedEventArgs) Handles btnLimpiar.Click  
        InicializarFechaHora () 
End Sub

Private Sub btnActRespDec_Click(ByVal sender As System.Object , ByVal e As System.Windows.RoutedEventArgs ) Handles btnActRespDec.Click   
     Dim negocio As New CLiquidezServicio    

     Dim num_PENDIENTE  As Integer
     Dim num_PROCESADO  As Integer
     Dim num_INCORRECTO As Integer 
     
     Try
       negocio.ActualizarRespdecalog (num_PENDIENTE,num_PROCESADO,num_INCORRECTO)
       MessageBox.Show ("Se procesaron: PENDIENTES: " & num_PENDIENTE & ", CORRECTOS: " & num_PROCESADO & " e INCORRECTOS: " &  num_INCORRECTO & "." ,"Respuesta Decalog",MessageBoxButton.OK,MessageBoxImage.Information) 
     Catch ex As Exception
            MessageBox.Show("Error TI500. Error al intentar obtener la respuesta de decalog. Error: " & ex.Message, "Respuesta Decalog", MessageBoxButton.OK, MessageBoxImage.Error)
     End Try
     
End Sub




  Private Sub InicializarFechaHora () 

        Me.fechaInicio.Text = Date.Now.ToString ("dd/MM/yyyy") 
        Me.tiempoInicio.txtHora.Text  = "00"
        Me.tiempoInicio.txtMinuto.Text = "00" 
        Me.tiempoInicio.txtSegundo.Text = "00" 

        Me.fechaFin.Text = Now.ToString ("dd/MM/yyyy") 
        Me.tiempoFin.txtHora.Text  = Date.Now.Hour.ToString("0#")   
        Me.tiempoFin.txtMinuto.Text = Date.Now.Minute.ToString ("0#") 
        Me.tiempoFin.txtSegundo.Text = "00" 


    End Sub







End Class
